<%@  language="VBScript" %>
<%  Option Explicit %>

<%
    Dim objConnection, objRSPhotos
    Dim strSQL
    Response.Expires = -1500    

    Set objConnection = Server.CreateObject("ADODB.Connection")
    objConnection.ConnectionString = "dsn=Developer;uid=JohnNgo;pwd=jo2.0G$!;"    
    objConnection.Open
    
    strSQL = "DELETE FROM photos"
    Set objRSPhotos = Server.CreateObject("ADODB.Recordset")
    objRSPhotos.Open strSQL, objConnection, 1, 3, 1

    strSQL = "SELECT * FROM photos"
    Set objRSPhotos = Server.CreateObject("ADODB.Recordset")
    objRSPhotos.Open strSQL, objConnection, 1, 3, 1
	
	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 1
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00001.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 1"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 18
	objRSPhotos.Update
	
	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 2
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00002.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 2"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 18
	objRSPhotos.Update
	
	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 3
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00003.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 3"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 4
	objRSPhotos.Fields("albumID").Value = 18
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 4
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00004.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 4"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 3
	objRSPhotos.Fields("albumID").Value = 18
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 5
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00005.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 5"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 19
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 6
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00006.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 6"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 19
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 7
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00007.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 7"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 3
	objRSPhotos.Fields("albumID").Value = 19
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 8
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00008.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 8"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 20
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 9
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00009.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 9"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 3
	objRSPhotos.Fields("albumID").Value = 20
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 10
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00010.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 10"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 20
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 11
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00011.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 11"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 21
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 18
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CP00012.jpg"
	objRSPhotos.Fields("title").Value = "Cell phone"
	objRSPhotos.Fields("description").Value = "Cell phone 12"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 21
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 19
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CS00001.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 1"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 22
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 20
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CS00002.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 2"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 3
	objRSPhotos.Fields("albumID").Value = 22
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 21
	objRSPhotos.Fields("username").Value = "John"
	objRSPhotos.Fields("fileName").Value = "CS00003.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 3"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 22
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 22
	objRSPhotos.Fields("username").Value = "Steven"
	objRSPhotos.Fields("fileName").Value = "CS00004.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 4"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 1
	objRSPhotos.Fields("albumID").Value = 23
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 23
	objRSPhotos.Fields("username").Value = "Steven"
	objRSPhotos.Fields("fileName").Value = "CS00005.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 5"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 2
	objRSPhotos.Fields("albumID").Value = 23
	objRSPhotos.Update

	objRSPhotos.AddNew
	'objRSPhotos.Fields("photoID").Value = 18
	objRSPhotos.Fields("username").Value = "Steven"
	objRSPhotos.Fields("fileName").Value = "CS00006.jpg"
	objRSPhotos.Fields("title").Value = "Gift"
	objRSPhotos.Fields("description").Value = "Gift 6"
	objRSPhotos.Fields("dateTaken").Value = Date
	objRSPhotos.Fields("priority").Value = 3
	objRSPhotos.Fields("albumID").Value = 23
	objRSPhotos.Update

    objRSPhotos.Close
    set objRSPhotos = Nothing
    objConnection.Close
    set objConnection = Nothing

%>